home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / AppMaker 2.0b3 / Demo AppMaker 1.5 / Demo AppMaker™ / Demo AppMaker™.rsrc / TmMM_103_Doc.DEF < prev    next >
Encoding:
Modula Definition  |  1992-04-08  |  1.0 KB  |  43 lines
  1. (* %filename% -- document class *)
  2. (* Created %date% %time% by AppMaker  *)
  3.  
  4. DEFINITION MODULE U%appname%Doc;
  5.  
  6. FROM Types IMPORT
  7.     INT16, INT32;
  8. FROM UMenuSetup IMPORT
  9.     CmdNumber;
  10. FROM UMacApp IMPORT
  11.     TDocument, TCommand;
  12.  
  13. (*${QINSPECTOR*)
  14. FROM UMacAppUtilities IMPORT
  15.     DoToFieldMETHOD;
  16. (*$}*)
  17.  
  18. TYPE
  19. (*----------*)
  20.     T%appname%Doc = OBJECT (TDocument)
  21.         METHOD I%appname%Doc;
  22.         OVERRIDE METHOD Free; 
  23.         OVERRIDE METHOD FreeData; 
  24.         OVERRIDE METHOD DoMakeViews     (forPrinting:        BOOLEAN);
  25.         OVERRIDE METHOD DoNeedDiskSpace    (VAR dataForkBytes:    INT32;
  26.                                         VAR rsrcForkBytes:    INT32);
  27.         OVERRIDE METHOD DoRead            (aRefNum:            INT16;
  28.                                          rsrcExists:        BOOLEAN;
  29.                                          forPrinting:        BOOLEAN);
  30.         OVERRIDE METHOD DoWrite            (aRefNum:            INT16;
  31.                                          makingCopy:        BOOLEAN); 
  32.         OVERRIDE METHOD DoSetupMenus;
  33.         %for each menu gen dynamicMenuProc.decl%
  34.  
  35.         OVERRIDE METHOD DoMenuCommand (aCmdNumber: CmdNumber): TCommand;
  36.  
  37.     (*${QINSPECTOR*)
  38.         OVERRIDE METHOD Fields (DoToField:    DoToFieldMETHOD);
  39.     (*$}*)
  40.     END(*T%appname%Doc*);
  41.  
  42. END U%appname%Doc.
  43.